﻿Imports System.Resources

Public Class frmEntryChoixTypeObs
    Public bTypeSite As String

    Private rm As New ResourceManager(GetType(frmEntryChoixTypeObs))

    Private Sub btnSuivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuivant.Click
        Try

                'Intialisation des données saisie pécédement
            frmAffichProtocol.maIndexStation = 0
            frmAffichProtocol.monIdZoneEtude = Nothing
            frmAffichProtocol.maZoneEtude = Nothing

            'frmEntryTaxonQuant.maIndexStation = 0
            '    frmEntryTaxonQuant.monIdZoneEtude = Nothing
            '    frmEntryTaxonQuant.maZoneEtude = Nothing

            '    frmEntryWhat_Density.maIndexStation = 0       'ajout protocole Zambra
            '    frmEntryWhat_Density.monIdZoneEtude = Nothing
            '    frmEntryWhat_Density.maZoneEtude = Nothing

            '    frmEntryWhat_Indice.maIndexStation = 0       'ajout protocole Zambra
            '    frmEntryWhat_Indice.monIdZoneEtude = Nothing
            '    frmEntryWhat_Indice.maZoneEtude = Nothing

            '    frmEntryWhat_Indiv.maIndexStation = 0       'ajout protocole Zambra
            '    frmEntryWhat_Indiv.monIdZoneEtude = Nothing
            '    frmEntryWhat_Indiv.maZoneEtude = Nothing


              

                If rb_ObserPonct.Checked = True Then
                    bTypeSite = "Ponctuel"
                    frmEntryFin.dEntryStep = 1.1
                frmEntryGPS.Show()
                Me.Hide()


                End If
                If rb_SuiviSite.Checked = True Then
                    bTypeSite = "Suivi"
                    'Test de la liste des sites
                    Try
                        'Gère le chargement de la taxonomie
                        If frmEntryChoixSite.lstViewSite.Items.Count > 0 Then
                        frmEntryChoixSite.Show()
                        Me.Hide()
                        Else
                            MsgBox(DirectCast(My.Resources.Images.alertParamSite, String), MsgBoxStyle.Exclamation, "Pocket eRelevé")
                            Exit Sub
                        End If
                    Catch ex As Exception
                        MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Pocket eRelevé")
                        Exit Sub
                    End Try
                End If
            If rb_photo.Checked = True Then

                frmPhotoGeoref.Show()
                Me.Hide()
            End If

        Catch ex As Exception
            MsgBox(DirectCast(My.Resources.Images.errorOnSave, String) & " : " & ex.Message, MsgBoxStyle.Exclamation, "Pocket eRelevé")
        End Try
    End Sub

    Private Sub btnMenu_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMenu.Click
        frmEntryFin.dEntryStep = 0
        FormMain.Show()
        Me.Hide()
    End Sub

    Private Sub frmChoixLocalisation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rb_ObserPonct.Checked = True
    End Sub

    Private Sub btnDataShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDataShow.Click
        frmDataChoix.CreateObservationTable()
        frmDataObsTable.Show()
    End Sub
End Class